home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 4 / Mail_Madness_04_19xx_-_Side_B.d64 / las vegas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  28KB  |  1,156 lines
  1. 1 fori=54272to54296:pokei,0:next
  2. 2 poke54296,15:vd=1:ti$="000000"
  3. 3 goto299
  4. 4 fork=1to15
  5. 5 poke53280,k:forl=1to10:nextl
  6. 6 nextk
  7. 7 return
  8. 8 n=int(rnd(ti)*13+1)
  9. 9 s=int(rnd(ti)*4+1)
  10. 10 c=n*s
  11. 11 forcd=0tok-1
  12. 12 ifcc(cd)=cthen8
  13. 13 nextcd
  14. 14 cc(k)=c:k=k+1
  15. 15 return
  16. 16 printtab(t)"[144][207][183][183][183][183][183][208]"
  17. 17 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
  18. 18 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
  19. 19 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
  20. 20 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
  21. 21 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
  22. 22 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
  23. 23 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
  24. 24 printtab(t)"[144][204][175][175][175][175][175][186]"
  25. 25 return
  26. 26 ifs=1thens$="[216]":print"[144]"
  27. 27 ifs=2thens$="[218]":print"[150]"
  28. 28 ifs=3thens$="[211]":print"[150]"
  29. 29 ifs=4thens$="[193]":print"[144]"
  30. 30 ifn=1then43
  31. 31 ifn=2then51
  32. 32 ifn=3then59
  33. 33 ifn=4then67
  34. 34 ifn=5then75
  35. 35 ifn=6then83
  36. 36 ifn=7then91
  37. 37 ifn=8then99
  38. 38 ifn=9then107
  39. 39 ifn=10then115
  40. 40 ifn=11then123
  41. 41 ifn=12then131
  42. 42 ifn=13then139
  43. 43 printtab(t+1)"a    "
  44. 44 printtab(t+1)"     "
  45. 45 printtab(t+1)"     "
  46. 46 printtab(t+1)"  ";s$;"  "
  47. 47 printtab(t+1)"     "
  48. 48 printtab(t+1)"     "
  49. 49 printtab(t+1)"    a"
  50. 50 return
  51. 51 printtab(t+1)"2    "
  52. 52 printtab(t+1)"     "
  53. 53 printtab(t+1)" ";s$;"   "
  54. 54 printtab(t+1)"     "
  55. 55 printtab(t+1)"   ";s$;" "
  56. 56 printtab(t+1)"     "
  57. 57 printtab(t+1)"    2"
  58. 58 return
  59. 59 printtab(t+1)"3    "
  60. 60 printtab(t+1)"     "
  61. 61 printtab(t+1)" ";s$;"   "
  62. 62 printtab(t+1)"  ";s$;"  "
  63. 63 printtab(t+1)"   ";s$;" "
  64. 64 printtab(t+1)"     "
  65. 65 printtab(t+1)"    3"
  66. 66 return
  67. 67 printtab(t+1)"4    "
  68. 68 printtab(t+1)"     "
  69. 69 printtab(t+1)" ";s$;" ";s$;" "
  70. 70 printtab(t+1)"     "
  71. 71 printtab(t+1)" ";s$;" ";s$;" "
  72. 72 printtab(t+1)"     "
  73. 73 printtab(t+1)"    4"
  74. 74 return
  75. 75 printtab(t+1)"5    "
  76. 76 printtab(t+1)"     "
  77. 77 printtab(t+1)" ";s$;" ";s$;" "
  78. 78 printtab(t+1)"  ";s$;"  "
  79. 79 printtab(t+1)" ";s$;" ";s$;" "
  80. 80 printtab(t+1)"     "
  81. 81 printtab(t+1)"    5"
  82. 82 return
  83. 83 printtab(t+1)"6    "
  84. 84 printtab(t+1)" ";s$;" ";s$;" "
  85. 85 printtab(t+1)"     "
  86. 86 printtab(t+1)" ";s$;" ";s$;" "
  87. 87 printtab(t+1)"     "
  88. 88 printtab(t+1)" ";s$;" ";s$;" "
  89. 89 printtab(t+1)"    6"
  90. 90 return
  91. 91 printtab(t+1)"7    "
  92. 92 printtab(t+1)" ";s$;" ";s$;" "
  93. 93 printtab(t+1)"  ";s$;"  "
  94. 94 printtab(t+1)" ";s$;" ";s$;" "
  95. 95 printtab(t+1)"     "
  96. 96 printtab(t+1)" ";s$;" ";s$;" "
  97. 97 printtab(t+1)"    7"
  98. 98 return
  99. 99 printtab(t+1)"8    "
  100. 100 printtab(t+1)" ";s$;" ";s$;" "
  101. 101 printtab(t+1)"  ";s$;"  "
  102. 102 printtab(t+1)" ";s$;" ";s$;" "
  103. 103 printtab(t+1)"  ";s$;"  "
  104. 104 printtab(t+1)" ";s$;" ";s$;" "
  105. 105 printtab(t+1)"    8"
  106. 106 return
  107. 107 printtab(t+1)"9";s$;" ";s$;" "
  108. 108 printtab(t+1)"     "
  109. 109 printtab(t+1)" ";s$;" ";s$;" "
  110. 110 printtab(t+1)"  ";s$;"  "
  111. 111 printtab(t+1)" ";s$;" ";s$;" "
  112. 112 printtab(t+1)"     "
  113. 113 printtab(t+1)" ";s$;" ";s$;"9"
  114. 114 return
  115. 115 printtab(t+1)"1";s$;" ";s$;" "
  116. 116 printtab(t+1)"0 ";s$;"  "
  117. 117 printtab(t+1)" ";s$;" ";s$;" "
  118. 118 printtab(t+1)"     "
  119. 119 printtab(t+1)" ";s$;" ";s$;" "
  120. 120 printtab(t+1)"  ";s$;" 1"
  121. 121 printtab(t+1)" ";s$;" ";s$;"0"
  122. 122 return
  123. 123 printtab(t+1)"j    "
  124. 124 printtab(t+1)"  j  "
  125. 125 printtab(t+1)"  a  "
  126. 126 printtab(t+1)" ";s$;" ";s$;" "
  127. 127 printtab(t+1)"  c  "
  128. 128 printtab(t+1)"  k  "
  129. 129 printtab(t+1)"    j":n=10
  130. 130 return
  131. 131 printtab(t+1)"q    "
  132. 132 printtab(t+1)"  q  "
  133. 133 printtab(t+1)"  u  "
  134. 134 printtab(t+1)" ";s$;"e";s$;" "
  135. 135 printtab(t+1)"  e  "
  136. 136 printtab(t+1)"  n  "
  137. 137 printtab(t+1)"    q":n=10
  138. 138 return
  139. 139 printtab(t+1)"k    "
  140. 140 printtab(t+1)"  k  "
  141. 141 printtab(t+1)"  i  "
  142. 142 printtab(t+1)" ";s$;" ";s$;" "
  143. 143 printtab(t+1)"  n  "
  144. 144 printtab(t+1)"  g  "
  145. 145 printtab(t+1)"    k":n=10
  146. 146 return
  147. 147 d=int(rnd(ti)*6+1)
  148. 148 ifd=1then155
  149. 149 ifd=2then163
  150. 150 ifd=3then171
  151. 151 ifd=4then179
  152. 152 ifd=5then187
  153. 153 ifd=6then195
  154. 154 goto147
  155. 155 printtab(t)"       "
  156. 156 printtab(t)" [146]      "
  157. 157 printtab(t)" [146]      "
  158. 158 printtab(t)" [146]  [209]   "
  159. 159 printtab(t)" [146]      "
  160. 160 printtab(t)" [146]      "
  161. 161 printtab(t)"       "
  162. 162 return
  163. 163 printtab(t)"       "
  164. 164 printtab(t)" [146]      "
  165. 165 printtab(t)" [146] [209]    "
  166. 166 printtab(t)" [146]      "
  167. 167 printtab(t)" [146]   [209]  "
  168. 168 printtab(t)" [146]      "
  169. 169 printtab(t)"       "
  170. 170 return
  171. 171 printtab(t)"       "
  172. 172 printtab(t)" [146]      "
  173. 173 printtab(t)" [146] [209]    "
  174. 174 printtab(t)" [146]  [209]   "
  175. 175 printtab(t)" [146]   [209]  "
  176. 176 printtab(t)" [146]      "
  177. 177 printtab(t)"       "
  178. 178 return
  179. 179 printtab(t)"       "
  180. 180 printtab(t)" [146]      "
  181. 181 printtab(t)" [146] [209] [209]  "
  182. 182 printtab(t)" [146]      "
  183. 183 printtab(t)" [146] [209] [209]  "
  184. 184 printtab(t)" [146]      "
  185. 185 printtab(t)"       "
  186. 186 return
  187. 187 printtab(t)"       "
  188. 188 printtab(t)" [146]      "
  189. 189 printtab(t)" [146] [209] [209]  "
  190. 190 printtab(t)" [146]  [209]   "
  191. 191 printtab(t)" [146] [209] [209]  "
  192. 192 printtab(t)" [146]      "
  193. 193 printtab(t)"       "
  194. 194 return
  195. 195 printtab(t)"       "
  196. 196 printtab(t)" [146]      "
  197. 197 printtab(t)" [146] [209] [209]  "
  198. 198 printtab(t)" [146] [209] [209]  "
  199. 199 printtab(t)" [146] [209] [209]  "
  200. 200 printtab(t)" [146]      "
  201. 201 printtab(t)"       "
  202. 202 return
  203. 203 print:printtab(t+1)"     "
  204. 204 printtab(t+1)"     "
  205. 205 printtab(t+1)"     "
  206. 206 printtab(t+1)"     "
  207. 207 printtab(t+1)"     "
  208. 208 printtab(t+1)"     "
  209. 209 printtab(t+1)"     "
  210. 210 goto501
  211. 211 return
  212. 212 print"[144]":printtab(t+1)"     "
  213. 213 printtab(t+1)"     "
  214. 214 printtab(t+1)"     "
  215. 215 printtab(t+1)"     [146]"
  216. 216 printtab(t+1)"     "
  217. 217 printtab(t+1)"     "
  218. 218 printtab(t+1)"     "
  219. 219 return
  220. 220 print"[144]":printtab(t+1)"     "
  221. 221 printtab(t+1)"     "
  222. 222 printtab(t+1)"     [146]"
  223. 223 printtab(t+1)"     "
  224. 224 printtab(t+1)"     [146]"
  225. 225 printtab(t+1)"     "
  226. 226 printtab(t+1)"     "
  227. 227 return
  228. 228 print"[144]":printtab(t+1)"     "
  229. 229 printtab(t+1)"     [146]"
  230. 230 printtab(t+1)"     "
  231. 231 printtab(t+1)"     [146]"
  232. 232 printtab(t+1)"     "
  233. 233 printtab(t+1)"     [146]"
  234. 234 printtab(t+1)"     "
  235. 235 return
  236. 236 print" place your bet (1-9) ";
  237. 237 geta$:ifa$=""then237
  238. 238 ifa$="1"thenb=1:goto244
  239. 239 ifa$="2"thenb=2:goto244
  240. 240 ifa$="3"thenb=3:goto244
  241. 241 ifa$="4"thenb=4:goto244
  242. 242 ifa$="5"thenb=5:goto244
  243. 243 goto265
  244. 244 printtab(27)"   bet:";b;"[157]   "
  245. 245 return
  246. 246 tl=0:q=0
  247. 247 forl=1to5:ifpp(l,i)>10thenpp(l,i)=10
  248. 248 ifpp(l,i)=1thenq=q+1:tl=tl+10
  249. 249 tl=tl+pp(l,i)
  250. 250 nextl
  251. 251 iftl<=21thenreturn
  252. 252 ifq<=0thenreturn
  253. 253 tl=tl-10:q=q-1:goto251
  254. 254 tl=0
  255. 255 forl=1to3:ifpp(l,i)>9thenpp(l,i)=0
  256. 256 tl=tl+pp(l,i)
  257. 257 iftl>9thentl=tl-10
  258. 258 nextl
  259. 259 return
  260. 260 v=0:h=n:print""
  261. 261 ifh>10thenv=v+1:h=h-10:goto261
  262. 262 forl=0tov:print"":nextl
  263. 263 k=4*h-4:ifn<10thenk=k+1
  264. 264 printtab(k)"[145]"n;"[157][157][157][157][146] ":on tc goto518,538,477,614
  265. 265 ifa$="6"thenb=6:goto244
  266. 266 ifa$="7"thenb=7:goto244
  267. 267 ifa$="8"thenb=8:goto244
  268. 268 ifa$="9"thenb=9:goto244
  269. 269 goto237
  270. 270 n=int(rnd(ti)*38)
  271. 271 print""
  272. 272 ifn=2thenprint"[144]"
  273. 273 ifn=4thenprint"[144]"
  274. 274 ifn=6thenprint"[144]"
  275. 275 ifn=8thenprint"[144]"
  276. 276 ifn=10thenprint"[144]"
  277. 277 ifn=11thenprint"[144]"
  278. 278 ifn=13thenprint"[144]"
  279. 279 ifn=15thenprint"[144]"
  280. 280 ifn=17thenprint"[144]"
  281. 281 ifn=20thenprint"[144]"
  282. 282 ifn=24thenprint"[144]"
  283. 283 ifn=26thenprint"[144]"
  284. 284 ifn=28thenprint"[144]"
  285. 285 ifn=29thenprint"[144]"
  286. 286 ifn=31thenprint"[144]"
  287. 287 ifn=33thenprint"[144]"
  288. 288 ifn=35thenprint"[144]"
  289. 289 ifn=22thenprint"[144]"
  290. 290 ifn=0thenprint""
  291. 291 ifn=37thenprint""
  292. 292 print""
  293. 293 fori=1to3:printtab(29)"    ":next
  294. 294 print""
  295. 295 ifn=37thenprinttab(30)"00":return
  296. 296 ifn>9thenprinttab(29)"";n:return
  297. 297 ifn<10thenprinttab(30)"";n:return
  298. 298 return
  299. 299 dimcc(53),m(25),p(5,3):mm=50:xx=0
  300. 300 goto308
  301. 301 print"":t=20
  302. 302 gosub16:print"":ifd=1thengosub212
  303. 303 ifd=2thengosub220
  304. 304 ifd=3thengosub228
  305. 305 ifd>3thengosub203
  306. 306 fori=1to500:nexti
  307. 307 goto&1
  308. 308 poke53280,2:poke53281,1:print"[147]":goto318
  309. 309 geta$:ifa$="1"then328
  310. 310 ifa$="2"then693
  311. 311 ifa$="3"then431
  312. 312 ifa$="4"then787
  313. 313 ifa$="5"then893
  314. 314 ifa$="6"then988
  315. 315 ifa$="7"then1157
  316. 316 ifa$="8"then&12000
  317. 317 gosub4:goto309
  318. 318 print"    you are in las vegas, with $";mm
  319. 319 print:print"    what will you do?"
  320. 320 print:print:print"        1. play the slot machines"
  321. 321 print:print"        2. play blackjack"
  322. 322 print:print"        3. play keno"
  323. 323 print:print"        4. play poker"
  324. 324 print:print"        5. play chuck-a-luck"
  325. 325 print:print"        6. play baccarat"
  326. 326 print:print"        7. go home      "
  327. 327 goto309
  328. 328 print"[147]";:poke53280,8:rem- slots
  329. 329 fori=1to11:print"[129]                                       ":next
  330. 330 fori=40to440step40:poke55295+i,8:poke1023+i,224:nexti:o=0
  331. 331 fori=1to3:t=10*i-4:print"":gosub16:nexti
  332. 332 fori=1to500:nexti
  333. 333 print"      payoff"
  334. 334 print"[144] [162][162]  [162][162]  [162][162]"
  335. 335 print"[144] [162][162]  [162][162]  [162][162]  = 100"
  336. 336 print"[144] [162][162]  [162][162]  [162][162]"
  337. 337 print"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  338. 338 print"[144] [162][162]  [162][162]  [162][162]"
  339. 339 print"[144] [162][162]  [162][162]  [162][162]  =  50"
  340. 340 print"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  341. 341 print"[144] [162][162]  [162][162]  [162][162]  =  20"
  342. 342 print"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  343. 343 print
  344. 344 print"  any bars   =  10"
  345. 345 fori=1to14:j=40*i:poke55715+j,8:poke1443+j,224:nexti
  346. 346 print"":t=6:print"":gosub220
  347. 347 print"":t=16:print"":gosub203
  348. 348 print"":t=26:print"":gosub228
  349. 349 print"":printtab(20)"to play hit any key"
  350. 350 print"":printtab(25)"total: 0"
  351. 351 geta$:ifa$=""then351
  352. 352 fori=1to3:print"":t=10*i-4:gosub16:nexti:s=0
  353. 353 o=o-1:print"":printtab(25)"total:";o;"[157]  "
  354. 354 print"":printtab(20)" 98 percent payout"
  355. 355 for j=1to1200:nextj
  356. 356 fori=1to3:t=10*i-4:print""
  357. 357 r=int(rnd(ti)*242+1)
  358. 358 ifr>100thend=0:gosub203:goto363
  359. 359 ifr>50thend=1:gosub212:goto362
  360. 360 ifr>10thend=2:gosub220:goto362
  361. 361 d=3:gosub228
  362. 362 goto505
  363. 363 s=s+d*10^(i-1):forj=1to600:nextj
  364. 364 nexti
  365. 365 ifs<111thenp=0:goto394
  366. 366 ifs=111thenp=20:goto394
  367. 367 ifs=222thenp=50:goto394
  368. 368 ifs=122thenp=10:goto394
  369. 369 ifs=123thenp=10:goto394
  370. 370 ifs=121thenp=10:goto394
  371. 371 ifs=131thenp=10:goto394
  372. 372 ifs=132thenp=10:goto394
  373. 373 ifs=133thenp=10:goto394
  374. 374 ifs=211thenp=10:goto394
  375. 375 ifs=212thenp=10:goto394
  376. 376 ifs=231thenp=10:goto394
  377. 377 ifs=221thenp=10:goto394
  378. 378 ifs=223thenp=10:goto394
  379. 379 ifs=232thenp=10:goto394
  380. 380 ifs=233thenp=10:goto394
  381. 381 ifs=311thenp=10:goto394
  382. 382 ifs=312thenp=10:goto394
  383. 383 ifs=313thenp=10:goto394
  384. 384 ifs=321thenp=10:goto394
  385. 385 ifs=322thenp=10:goto394
  386. 386 ifs=323thenp=10:goto394
  387. 387 ifs=331thenp=10:goto394
  388. 388 ifs=332thenp=10:goto394
  389. 389 ifs=333thenp=100:goto394
  390. 390 ifs=112thenp=10:goto394
  391. 391 ifs=113thenp=10:goto394
  392. 392 ifs=213thenp=10:goto394
  393. 393 p=0
  394. 394 o=o+p:ifp<1then404
  395. 395 forj=1top
  396. 396 gosub4
  397. 397 poke53280,8
  398. 398 print"":printtab(24)"payoff:";j;"[157]   "
  399. 399 print""
  400. 400 printtab(25)"total:";o-p+j;"[157]  "
  401. 401 td=1:goto481
  402. 402 nextj
  403. 403 poke53280,8
  404. 404 print"":printtab(24)"payoff:";p;"[157]   "
  405. 405 print""
  406. 406 printtab(25)"total:";o;"[157]  "
  407. 407 print"":printtab(21)"to quit - hit 'q'"
  408. 408 geta$:ifa$=""then408
  409. 409 ifa$="q"thenmm=mm+o:goto308
  410. 410 ifmm+o<=0thenmm=mm+o:goto1127
  411. 411 goto352
  412. 412 poke53280,2:poke53281,1
  413. 413 print"[147]";chr$(14)
  414. 414 print"   [201]f you have received a [198][210][197][197] copy of"
  415. 415 print" this program from a friend, or other"
  416. 416 print" source, and you enjoy this game, then"
  417. 417 print" send a contribution of $5.00 to:"
  418. 418 print"          [208]eter [193]. [210]udman"
  419. 419 print"          3745 [215]oodvale [210]oad"
  420. 420 print"          [194]irmingham, [193][204] 35223"
  421. 421 print"   [201]'m sure you'll agree that $5.00 is"
  422. 422 print" a small compensation for all the time"
  423. 423 print" and effort which [201]'ve put in to devel-"
  424. 424 print" op this program."
  425. 425 print"                    [212]hank you."
  426. 426 print"                    [208]eter [193]. [210]udman"
  427. 427 fori=1to18000:next
  428. 428 printchr$(142):ti$="000000"
  429. 429 goto308
  430. 430 geta$:ifa$=""then430
  431. 431 rem- keno
  432. 432 print"[147]":poke53280,15:poke53281,1:o=0
  433. 433 print"[147]                 keno":print"                 ----"
  434. 434 print"         would you like to see ":print
  435. 435 print"          the payoff tables?"
  436. 436 geta$:ifa$=""then436
  437. 437 ifa$="y"then667
  438. 438 ifa$="n"then440
  439. 439 goto436
  440. 440 print"[147]                  keno"
  441. 441 print:print" 1 2 3 4 5 6 7 8 910"
  442. 442 print:print"11121314151617181920"
  443. 443 print:print"21222324252627282930"
  444. 444 print:print"31323334353637383940"
  445. 445 print:print"41424344454647484950"
  446. 446 print:print"51525354555657585960"
  447. 447 print:print"61626364656667686970"
  448. 448 print:print"71727374757677787980"
  449. 449 fori=0to20:cc(i)=0:nexti:z=0
  450. 450 print"  how many numbers":print
  451. 451 print"   will you guess?":print:print"      (1 to 9)"
  452. 452 geta$:ifa$=""then452
  453. 453 ifa$="1"thena=1:goto463
  454. 454 ifa$="2"thena=2:goto463
  455. 455 ifa$="3"thena=3:goto463
  456. 456 ifa$="4"thena=4:goto463
  457. 457 ifa$="5"thena=5:goto463
  458. 458 ifa$="6"thena=6:goto463
  459. 459 ifa$="7"thena=7:goto463
  460. 460 ifa$="8"thena=8:goto463
  461. 461 ifa$="9"thena=9:goto463
  462. 462 goto452
  463. 463 print""
  464. 464 fori=1to6:print"                                      ":nexti
  465. 465 print""
  466. 466 print"enter your number";
  467. 467 inputn$
  468. 468 print""
  469. 469 fori=1to6:print"                                      ":nexti
  470. 470 n=val(n$)
  471. 471 ifn<1orn>80then463
  472. 472 goto514
  473. 473 poke54277,1:poke54278,240:poke54273,51:poke54272,97:poke54276,17
  474. 474 for ss=1to100:next
  475. 475 poke54276,16
  476. 476 goto536
  477. 477 poke54277,1:poke54278,240:poke54273,34:poke54272,75:poke54276,17
  478. 478 for ss=1to100:next
  479. 479 poke54276,16
  480. 480 goto541
  481. 481 poke54277,1:poke54278,240:poke54273,34:poke54272,75:poke54276,17
  482. 482 for ss=1to50:next
  483. 483 poke54276,16
  484. 484 poke54277,1:poke54278,240:poke54273,38:poke54272,126:poke54276,17
  485. 485 for ss=1to50:next
  486. 486 poke54276,16
  487. 487 poke54277,1:poke54278,240:poke54273,43:poke54272,52:poke54276,17
  488. 488 for ss=1to50:next
  489. 489 poke54276,16
  490. 490 poke54277,1:poke54278,240:poke54273,45:poke54272,198:poke54276,17
  491. 491 for ss=1to50:next
  492. 492 poke54276,16
  493. 493 poke54277,1:poke54278,240:poke54273,51:poke54272,97:poke54276,17
  494. 494 for ss=1to50:next
  495. 495 poke54276,16
  496. 496 ifti<72000then500
  497. 499 goto412
  498. 500 ontdgoto402,588,747,779,739,882,976,1095,6
  499. 501 poke54277,1:poke54278,240:poke54273,34:poke54272,75:poke54276,17
  500. 502 for ss=1to100:next
  501. 503 poke54276,16
  502. 504 goto211
  503. 505 poke54277,1:poke54278,240:poke54273,51:poke54272,97:poke54276,17
  504. 506 for ss=1to100:next
  505. 507 poke54276,16
  506. 508 goto363
  507. 509 poke54277,1:poke54278,240:poke54273,51:poke54272,97:poke54276,17
  508. 510 poke54276,16
  509. 511 poke54277,1:poke54278,240:poke54273,34:poke54272,75:poke54276,17
  510. 512 poke54276,16
  511. 513 goto6
  512. 514 fori=0toz
  513. 515 ifn=cc(i)then463
  514. 516 nexti
  515. 517 print"":tc=1:goto260
  516. 518 cc(z+1)=n
  517. 519 z=z+1:ifz>=athen521
  518. 520 goto463
  519. 521 goto618
  520. 522 m=0:p=0:o=o-1
  521. 523 print"":print" total:";o;"[157] ";
  522. 524 forl=1to21:m(l)=0
  523. 525 r=int((rnd(ti)*80)+1)
  524. 526 m(l)=r:nextl
  525. 527 l=21
  526. 528 fork=1to20:forj=kto20
  527. 529 x=m(k):y=m(j+1)
  528. 530 ifx<>ythen534
  529. 531 m(j+1)=int(80*rnd(ti)+1)
  530. 532 y=m(j+1)
  531. 533 goto530
  532. 534 nextj:nextk
  533. 535 fori=1to20:forq=1to150:nextq
  534. 536 forj=1toa
  535. 537 ifm(i)=cc(j)thenn=cc(j):print"[158]":tc=2:goto260
  536. 538 ifm(i)=cc(j)theni=i+1:m=m+1:td=2:goto473
  537. 539 nextj
  538. 540 n=m(i):print"[129]":tc=3:goto260
  539. 541 nexti
  540. 542 ifa=1andm=1thenp=3
  541. 543 ifa=2andm=2thenp=12
  542. 544 ifa=3andm=2thenp=1
  543. 545 ifa=3andm=3thenp=42
  544. 546 ifa=4andm=2thenp=1
  545. 547 ifa=4andm=3thenp=3
  546. 548 ifa=4andm=4thenp=120
  547. 549 ifa=5andm=3thenp=1
  548. 550 ifa=5andm=4thenp=9
  549. 551 ifa=5andm=5thenp=800
  550. 552 ifa=6andm=3thenp=1
  551. 553 ifa=6andm=4thenp=4
  552. 554 ifa=6andm=5thenp=88
  553. 555 ifa=6andm=6thenp=1490
  554. 556 ifa=7andm=4thenp=2
  555. 557 ifa=7andm=5thenp=20
  556. 558 ifa=7andm=6thenp=350
  557. 559 ifa=7andm=7thenp=7000
  558. 560 ifa=8andm=5thenp=9
  559. 561 ifa=8andm=6thenp=90
  560. 562 ifa=8andm=7thenp=1490
  561. 563 ifa=8andm=8thenp=20000
  562. 564 ifa=9andm=5thenp=4
  563. 565 ifa=9andm=6thenp=44
  564. 566 ifa=9andm=7thenp=300
  565. 567 ifa=9andm=8thenp=4000
  566. 568 ifa=9andm=9thenp=22000
  567. 569 o=o+p
  568. 570 ifp>0goto579
  569. 571 print""
  570. 572 fori=1to7:print"                                     ":nexti
  571. 573 print"                                     ";
  572. 574 print""
  573. 575 print"        there are no winners":print
  574. 576 print"        you caught";m;"out of";a:print
  575. 577 print" total:";o;"[157]  "
  576. 578 goto589
  577. 579 print""
  578. 580 fori=1to7:print"                                     ":nexti
  579. 581 print"                                     ";
  580. 582 print""
  581. 583 print"     you win!  your payoff is $";p:print
  582. 584 print"        you caught";m;"out of";a:print
  583. 585 print" total:";o;"[157]  "
  584. 586 w=p:ifw>50thenw=50
  585. 587 fori=1tow:gosub4:td=2:goto481
  586. 588 nexti
  587. 589 fori=1to2000:nexti:ifo+mm<=0then1127
  588. 590 print""
  589. 591 fori=1to6:print"                                     ":nexti
  590. 592 print""
  591. 593 print"       do you want to play again?   "
  592. 594 geta$:ifa$=""then594
  593. 595 ifa$="n"thenmm=mm+o:goto308
  594. 596 ifa$="y"then598
  595. 597 goto593
  596. 598 print""
  597. 599 print"     do you want the same numbers?"
  598. 600 geta$:ifa$=""then600
  599. 601 ifa$="n"then433
  600. 602 ifa$="y"then604
  601. 603 goto600
  602. 604 print""
  603. 605 print:print" 1 2 3 4 5 6 7 8 910[146]"
  604. 606 print:print"11121314151617181920[146]"
  605. 607 print:print"21222324252627282930[146]"
  606. 608 print:print"31323334353637383940[146]"
  607. 609 print:print"41424344454647484950[146]"
  608. 610 print:print"51525354555657585960[146]"
  609. 611 print:print"61626364656667686970[146]"
  610. 612 print:print"71727374757677787980[146]"
  611. 613 fori=1toa:n=cc(i):print"":tc=4:goto260
  612. 614 nexti
  613. 615 print""
  614. 616 print"                                   "
  615. 617 goto521
  616. 618 print""
  617. 619 printtab(14)"payoff tables":ifa=1then628
  618. 620 ifa=2then631
  619. 621 ifa=3then633
  620. 622 ifa=4then636
  621. 623 ifa=5then640
  622. 624 ifa=6then644
  623. 625 ifa=7then649
  624. 626 ifa=8then654
  625. 627 ifa=9then659
  626. 628 print
  627. 629 printtab(16)"1 -     3"
  628. 630 goto665
  629. 631 print:printtab(16)"2 -    12"
  630. 632 goto665
  631. 633 print:printtab(16)"2 -     1"
  632. 634 printtab(16)"3 -    42"
  633. 635 goto665
  634. 636 print:printtab(16)"2 -     1"
  635. 637 printtab(16)"3 -     3"
  636. 638 printtab(16)"4 -   120"
  637. 639 goto665
  638. 640 print:printtab(16)"3 -     1"
  639. 641 printtab(16)"4 -     9"
  640. 642 printtab(16)"5 -   800"
  641. 643 goto665
  642. 644 print:printtab(16)"3 -     1"
  643. 645 printtab(16)"4 -     4"
  644. 646 printtab(16)"5 -    88"
  645. 647 printtab(16)"6 -  1490";
  646. 648 goto665
  647. 649 print:printtab(16)"4 -     2"
  648. 650 printtab(16)"5 -    20"
  649. 651 printtab(16)"6 -   350"
  650. 652 printtab(16)"7 -  7000";
  651. 653 goto665
  652. 654 print:printtab(16)"5 -     9"
  653. 655 printtab(16)"6 -    90"
  654. 656 printtab(16)"7 -  1490"
  655. 657 printtab(16)"8 - 20000";
  656. 658 goto665
  657. 659 printtab(16)"5 -     4"
  658. 660 printtab(16)"6 -    44"
  659. 661 printtab(16)"7 -   300"
  660. 662 printtab(16)"8 -  4000"
  661. 663 printtab(16)"9 - 22000";
  662. 664 goto665
  663. 665 goto522
  664. 666 goto691      
  665. 667 print"[147]             payoff tables":print"             -------------"
  666. 668 print" guess  pull  pay  [144] [146]  guess  pull  pay"
  667. 669 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  668. 670 print"   1     1      3  [144] [146]    7     4      2"
  669. 671 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]          5     20"
  670. 672 print"   2     2     12  [144] [146]          6    350"
  671. 673 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]          7   7000"
  672. 674 print"   3     2      1  [144] [146]                  "
  673. 675 print"         3     42  [144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  674. 676 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]    8     5      9"
  675. 677 print"   4     2      1  [144] [146]          6     90"
  676. 678 print"         3      3  [144] [146]          7   1490"
  677. 679 print"         4    120  [144] [146]          8  20000"
  678. 680 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146]                  "
  679. 681 print"   5     3      1  [144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  680. 682 print"         4      9  [144] [146]    9     5      4"
  681. 683 print"         5    800  [144] [146]          6     44"
  682. 684 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146]          7    300"
  683. 685 print"   6     3      1  [144] [146]          8   4000"
  684. 686 print"         4      4  [144] [146]          9  22000"
  685. 687 print"         5     88  [144] [146]                  "
  686. 688 print"         6   1490  [144] [146]     hit any key"
  687. 689 geta$:ifa$=""then689
  688. 690 goto440
  689. 691 geta$:ifa$=""then691
  690. 692 goto440
  691. 693 o=0:k=1:poke53280,5:poke53281,1:print"[147]";:rem - blackjack
  692. 694 fori=1to24:print"                                       ":next
  693. 695 print"                                       [146]"
  694. 696 fori=40to1000step40:poke55295+i,5:poke1023+i,224:nexti
  695. 697 fori=1to53:cc(i)=0:nexti:k=1
  696. 698 gosub236
  697. 699 fori=1to5
  698. 700 forj=1to3
  699. 701 pp(i,j)=0
  700. 702 nextj:nexti
  701. 703 print"":t=0:gosub16:print"":gosub16:fori=1to200:nexti
  702. 704 print"":gosub8:gosub26:pp(1,2)=n
  703. 705 t=8:print"":gosub16:print"":gosub16:fori=1to300:nexti
  704. 706 print"":gosub8:gosub26:pp(2,1)=n
  705. 707 print"":gosub8:gosub26:pp(2,2)=n
  706. 708 gosub8:pp(1,1)=n
  707. 709 i=2:gosub246:iftl=21then776
  708. 710 i=1:gosub246:iftl=21then780
  709. 711 j=2
  710. 712 print" h[146]it, s[146]tand, d[146]ouble?   ":i=2
  711. 713 geta$:ifa$=""then713
  712. 714 ifa$="h"then718
  713. 715 ifa$="s"then724
  714. 716 ifa$="d"then725
  715. 717 goto713
  716. 718 i=2:j=j+1:ifj>5then748
  717. 719 t=j*8-8:print"":gosub16:form=1to300:nextm
  718. 720 t=j*8-8:print"":gosub8:gosub26:pp(j,2)=n
  719. 721 gosub246:iftl>21then729
  720. 722 ifj=5thenpt=tl:goto748
  721. 723 goto712
  722. 724 gosub246:pt=tl:goto748
  723. 725 ifj>2then712
  724. 726 b=2*b:t=16:print"":gosub16:gosub8:pp(3,2)=n
  725. 727 form=1to300:nextm:print"":gosub26
  726. 728 gosub246:pt=tl:goto748
  727. 729 rem- player bust
  728. 730 o=o-b:print" over 21 - you lose  total:";o;"[157] "
  729. 731 pt=tl:goto748
  730. 732 rem- dealer stands
  731. 733 ifpt>dttheno=o+b:goto736
  732. 734 ifdt>pttheno=o-b:goto740
  733. 735 ifdt=ptthen742
  734. 736 print" you win with";pt;"[157]        [146] total:";o;"[157] "
  735. 737 print" you win with";pt;"[157]        [146] total:";o;"[157] "
  736. 738 gosub4:poke53280,5:td=5:goto481
  737. 739 goto785
  738. 740 print" dealer wins with";dt;"  total:";o;"[157] "
  739. 741 goto785
  740. 742 print" push - no winner     [146] total:";o;"[157] "
  741. 743 goto785
  742. 744 rem- dealer busts
  743. 745 o=o+b:print" dealer over - you win!  total:";o;"[157] "
  744. 746 gosub4:poke53280,5:td=3:goto481
  745. 747 goto759
  746. 748 rem- player stands
  747. 749 t=0:print"":n=pp(1,1):gosub26
  748. 750 i=1:gosub246:dt=tl:ifpt>21then785
  749. 751 ifdt>=17then732
  750. 752 j=3
  751. 753 t=j*8-8:print"":gosub16:form=1to400:nextm
  752. 754 t=j*8-8:print"":gosub8:gosub26:pp(j,1)=n
  753. 755 gosub246:dt=tl:ifdt>21then744
  754. 756 ifdt>=17then732
  755. 757 ifj=5then732
  756. 758 j=j+1:goto753
  757. 759 fori=1to1500:nexti:ifo+mm<=0then1127
  758. 760 print" play again?             "
  759. 761 geta$:ifa$=""then761
  760. 762 ifa$="y"then765
  761. 763 ifa$="n"thenmm=mm+o:goto308
  762. 764 goto761
  763. 765 fori=1to5
  764. 766 print""
  765. 767 forj=1to9
  766. 768 printtab(8*i-8)"       [146]"
  767. 769 nextj
  768. 770 print""
  769. 771 forj=1to9
  770. 772 printtab(8*i-8)"       [146]"
  771. 773 nextj
  772. 774 nexti
  773. 775 goto697
  774. 776 o=o+2*b
  775. 777 print" you have blackjack!  total:";o;"[157]   "
  776. 778 gosub4:poke53280,5:td=4:goto481
  777. 779 goto759
  778. 780 o=o-b
  779. 781 print"":t=0:n=pp(1,1):gosub26
  780. 782 print" dealer has blackjack  total:";o;"[157]   "
  781. 783 goto759
  782. 784 goto759
  783. 785 goto759
  784. 786 geta$:ifa$=""then786
  785. 787 print"[147]";:poke53280,5:rem- poker
  786. 788 fori=1to12:print"                                       ":next
  787. 789 fori=40to480step40:poke55295+i,5:poke1023+i,224:nexti:o=0
  788. 790 print"    payoff table":print"    ------------"
  789. 791 print" royal flush     300":print" straight flush   50"
  790. 792 print"[129] four of a kind   25":print" full house        9"
  791. 793 print" flush             6":print" straight          4"
  792. 794 print" three of a kind   3":print" two pair          2":print" one pair          0.5"
  793. 795 for i=1to5:t=8*i-8:print"":gosub16:nexti:py=0
  794. 796 print"12345"
  795. 797 print"":printtab(25)"draw poker":printtab(25)"----------"
  796. 798 printtab(22)"to discard enter":printtab(22)"the card number"
  797. 799 printtab(22)"to draw/hold hit":printtab(22)"     <space>"
  798. 800 fori=1to3:printtab(21)"                  ":nexti
  799. 801 o=o-1:printtab(26)"total:";o;"[157]  ":k=1
  800. 802 fori=1to5:pp(i,1)=0:nexti
  801. 803 fori=1to5:t=8*i-8:gosub8:pp(i,1)=n:pp(i,2)=s:print"":gosub26:nexti:p=1
  802. 804 geta$:ifa$=""then804
  803. 805 ifa$=" "then813
  804. 806 ifa$="1"thenpp(1,1)=0:print"":t=0:gosub16:p=p+1
  805. 807 ifa$="2"thenpp(2,1)=0:print"":t=8:gosub16:p=p+1
  806. 808 ifa$="3"thenpp(3,1)=0:print"":t=16:gosub16:p=p+1
  807. 809 ifa$="4"thenpp(4,1)=0:print"":t=24:gosub16:p=p+1
  808. 810 ifa$="5"thenpp(5,1)=0:print"":t=32:gosub16:p=p+1
  809. 811 ifp>=5then813
  810. 812 goto804
  811. 813 for i=1to5
  812. 814 ifpp(i,1)=0then817
  813. 815 nexti
  814. 816 goto820
  815. 817 gosub8:pp(i,1)=n:pp(i,2)=s:t=i*8-8
  816. 818 print"":gosub26
  817. 819 goto815
  818. 820 rem
  819. 821 fori=0to15:cc(i)=0:nexti:py=0
  820. 822 fori=1to5
  821. 823 ifpp(i,1)=1thencc(1)=cc(1)+1
  822. 824 ifpp(i,1)=2thencc(2)=cc(2)+1
  823. 825 ifpp(i,1)=3thencc(3)=cc(3)+1
  824. 826 ifpp(i,1)=4thencc(4)=cc(4)+1
  825. 827 ifpp(i,1)=5thencc(5)=cc(5)+1
  826. 828 ifpp(i,1)=6thencc(6)=cc(6)+1
  827. 829 ifpp(i,1)=7thencc(7)=cc(7)+1
  828. 830 ifpp(i,1)=8thencc(8)=cc(8)+1
  829. 831 ifpp(i,1)=9thencc(9)=cc(9)+1
  830. 832 ifpp(i,1)=10thencc(10)=cc(10)+1
  831. 833 ifpp(i,1)=11thencc(11)=cc(11)+1
  832. 834 ifpp(i,1)=12thencc(12)=cc(12)+1
  833. 835 ifpp(i,1)=13thencc(13)=cc(13)+1
  834. 836 nexti
  835. 837 fori=1to13:ifcc(i)>=4thenpy=25
  836. 838 nexti
  837. 839 fori=1to13:ifcc(i)=3thengosub852
  838. 840 nexti
  839. 841 fori=1to13:ifcc(i)=2thengosub859
  840. 842 nexti
  841. 843 fori=1to9:ifcc(i)=1thengosub868
  842. 844 nexti
  843. 845 fori=2to5
  844. 846 ifpp(i,2)<>pp(1,2)then871
  845. 847 nexti
  846. 848 ifpy=4thenpy=50:goto850
  847. 849 py=6:goto871
  848. 850 ifcc(13)=1thenpy=300
  849. 851 goto871
  850. 852 forj=0toi-1
  851. 853 ifcc(j)=2thenpy=9:return
  852. 854 nextj
  853. 855 forj=i+1to14
  854. 856 ifcc(j)=2thenpy=9:return
  855. 857 nextj
  856. 858 py=3:return
  857. 859 forj=0toi-1
  858. 860 ifcc(j)=2thenpy=2:return
  859. 861 ifcc(j)>2thenreturn
  860. 862 nextj
  861. 863 forj=i+1to14
  862. 864 ifcc(j)=2thenpy=2:return
  863. 865 ifcc(j)>2thenreturn
  864. 866 nextj
  865. 867 py=.5:return
  866. 868 forj=i+1toi+4
  867. 869 ifcc(j)<>1thenreturn
  868. 870 nextj:py=4:return
  869. 871 o=o+py:ifo+mm<=0then1127
  870. 872 ifpy>0then877
  871. 873 print""
  872. 874 printtab(26)"payoff: 0"
  873. 875 print:printtab(26)"total:";o;"[157]  "
  874. 876 goto884
  875. 877 fori=1topy:gosub4:poke53280,5
  876. 878 print""
  877. 879 ifpy=.5thenprinttab(26)"payoff:";py:goto881
  878. 880 printtab(26)"payoff:";i
  879. 881 print:printtab(26)"total:";o-int(py+.6)+i;"[157]  ":td=6:goto481
  880. 882 nexti
  881. 883 poke53280,5
  882. 884 print""
  883. 885 form=1to1000:nextm
  884. 886 printtab(21)"    play again?"
  885. 887 geta$:ifa$=""then887
  886. 888 ifa$="y"then795
  887. 889 ifa$="n"thenmm=mm+o:goto308
  888. 890 goto887
  889. 891 geta$:ifa$=""then891
  890. 892 goto795
  891. 893 o=0:rem- chuck a luck
  892. 894 print"[147]":poke53280,7:poke53281,7:print"[144]              chuck-a-luck"
  893. 895 print"                          [146]"
  894. 896 fori=1to3:print"               [165] [165] [165][160][165][160][165][160][165] ":next
  895. 897 print"             [146]  [205] [205][160][205][206][160][206][160][206][160][160] [146]"
  896. 898 print"             [146]   [205][160][205]  [206][160][206]    [146]"
  897. 899 print"             [146][175][175][175][175][175][157][205] [205][206] [206][175][175][175][175] [146]"
  898. 900 print"             [146][183][183][183][183][183][157][206][160][206][205][160][205][183][183][183][183] [146]"
  899. 901 print"             [146]   [206][160][206]  [205][160][205][160]   [146]"
  900. 902 print"             [146]  [206][160][206][160][206][205][160][205][160][205]   [146]"
  901. 903 fori=1to3:print"             [146]  [165][160][165][160][165][160][165][160][165][160][165]  [146]":nexti
  902. 904 print"             [146]             [146]  [146]"
  903. 905 print"             [146]               [146]"
  904. 906 print"             [146]               [146]"
  905. 907 print"                                [146]"
  906. 908 print"                                [146]"
  907. 909 for k=1to2
  908. 910 print""
  909. 911 forj=1to9:print"                   ":nextj
  910. 912 print""
  911. 913 print"  choose   choose":print
  912. 914 print"   your your":print
  913. 915 print"  number number":print
  914. 916 print" (1 to 6)(1 to 6)"
  915. 917 fori=1to200:nexti
  916. 918 nextk
  917. 919 geta$:ifa$=""then919
  918. 920 ifa$="1"thena=1:goto927
  919. 921 ifa$="2"thena=2:goto927
  920. 922 ifa$="3"thena=3:goto927
  921. 923 ifa$="4"thena=4:goto927
  922. 924 ifa$="5"thena=5:goto927
  923. 925 ifa$="6"thena=6:goto927
  924. 926 goto919
  925. 927 print"[147]":poke53280,13:poke53281,1
  926. 928 print"[144]your number"
  927. 929 print"[176][192][192][192][174]"
  928. 930 fori=1to3:print"[221]   [221]":nexti
  929. 931 print"[173][192][192][192][189]"
  930. 932 print"[144]"
  931. 933 ifa=1thenprint"[209]"
  932. 934 ifa=2thenprint"[209]":print"[209]"
  933. 935 ifa=3thenprint"[209]":print"[209]":print"[209]"
  934. 936 ifa=4thenprint"[209] [209]":print"[209] [209]"
  935. 937 ifa=5thenprint"[209] [209]":print"[209]":print"[209] [209]"
  936. 938 ifa=6thenprint"[209] [209]":print"[209] [209]":print"[209] [209]"
  937. 939 fori=1to2
  938. 940 print""
  939. 941 forj=1to4:printtab(19)"                  ":nextj:form=1to60:nextm
  940. 942 print"":printtab(19)"place your bet":print
  941. 943 printtab(19)"   (1 to 5)":forj=1to300:nextj
  942. 944 nexti
  943. 945 getb$:ifb$=""then945
  944. 946 ifb$="1"thenb=1:goto952
  945. 947 ifb$="2"thenb=2:goto952
  946. 948 ifb$="3"thenb=3:goto952
  947. 949 ifb$="4"thenb=4:goto952
  948. 950 ifb$="5"thenb=5:goto952
  949. 951 goto945
  950. 952 print""
  951. 953 printtab(25)"total bet":print
  952. 954 printtab(19)"        [176][192][192][192][174][146]   "
  953. 955 fori=1to3:printtab(19)"        [221][146]   [221][146]   ":nexti
  954. 956 printtab(19)"        [173][192][192][192][189][146]   "
  955. 957 print"":printtab(28)b:fori=1to600:nexti
  956. 958 print"":printtab(13)"game closed":print
  957. 959 printtab(13)"  no bets"
  958. 960 fori=1to12
  959. 961 forj=1to3:t=11*j-7
  960. 962 ifj=1thenprint""
  961. 963 ifj=2thenprint"[158]"
  962. 964 ifj=3thenprint""
  963. 965 print""
  964. 966 gosub147:r(j)=d:nextj:nexti
  965. 967 g=0
  966. 968 fori=1to3
  967. 969 ifr(i)=athenprint"":printtab(11*i-5)"[144]win":g=g+1
  968. 970 nexti
  969. 971 p=b*g:ifg=0thenp=-b
  970. 972 ifg=0then978
  971. 973 fori=1top
  972. 974 print"    you win! - your payoff is $";i:gosub4:poke53280,5
  973. 975 print"              total:";o+i;"[157]  ":td=7:goto481
  974. 976 nexti:poke53280,13
  975. 977 goto979
  976. 978 print"        there are no winners":print
  977. 979 print"    would you like to play again?"
  978. 980 o=o+p:ifo+mm<=0then1127
  979. 981 print"              total:";o;"[157]  "
  980. 982 geta$:ifa$=""then982
  981. 983 ifa$="n"thenmm=mm+o:goto308
  982. 984 ifa$="y"then894
  983. 985 goto982
  984. 986 geta$:ifa$=""then986
  985. 987 goto893
  986. 988 rem- baccarat
  987. 989 print"[147]";:poke53280,6:poke53281,1
  988. 990 fori=1to24:print"                                       ":next
  989. 991 print"                                       [146]"
  990. 992 fori=40to1000step40:poke55295+i,6:poke1023+i,224:nexti:o=0
  991. 993 t=3:print"":gosub16
  992. 994 t=11:print"":gosub16
  993. 995 t=21:print"":gosub16
  994. 996 t=29:print"":gosub16
  995. 997 print"        dealer"
  996. 998 print"                          player"
  997. 999 print"your wager, please?"
  998. 1000 print" (10,20,30,40,50)  "
  999. 1001 print"total:";o;"[157]  "
  1000. 1002 geta$:ifa$=""then1002
  1001. 1003 ifa$="1"thenb=10:goto1009
  1002. 1004 ifa$="2"thenb=20:goto1009
  1003. 1005 ifa$="3"thenb=30:goto1009
  1004. 1006 ifa$="4"thenb=40:goto1009
  1005. 1007 ifa$="5"thenb=50:goto1009
  1006. 1008 goto1002
  1007. 1009 fori=1to3:forj=1to2:pp(i,j)=0:next:next:k=1:ss=0
  1008. 1010 print"                   "
  1009. 1011 print"                   "
  1010. 1012 print"wager:";b;"[157]  "
  1011. 1013 t=21:print"":gosub8:pp(1,2)=n:gosub26:form=1to600:nextm
  1012. 1014 t=29:print"":gosub8:pp(2,2)=n:gosub26:form=1to600:nextm
  1013. 1015 i=2:gosub254:pt=tl
  1014. 1016 print"player has:";pt:form=1to600:nextm
  1015. 1017 ifpt>7then1120
  1016. 1018 goto1029
  1017. 1019 print"player will stand"
  1018. 1020 form=1to600:nextm:goto1034
  1019. 1021 print"player will draw "
  1020. 1022 form=1to600:nextm
  1021. 1023 print"":t=25:gosub16:form=1to600:nextm
  1022. 1024 print"":t=25:gosub8:pp(3,2)=n:gosub26:gosub254:pt=tl
  1023. 1025 print:print"player"
  1024. 1026 print"player has:";pt:form=1to600:nextm
  1025. 1027 ss=1
  1026. 1028 goto1019
  1027. 1029 print"will you draw?   "
  1028. 1030 geta$:ifa$=""then1030
  1029. 1031 ifa$="y"then1021
  1030. 1032 ifa$="n"then1019
  1031. 1033 goto1030
  1032. 1034 rem- dealer turn
  1033. 1035 gosub8:pp(1,1)=n:print""
  1034. 1036 t=3:gosub26:form=1to600:nextm
  1035. 1037 gosub8:pp(2,1)=n:print""
  1036. 1038 t=11:gosub26:form=1to600:nextm
  1037. 1039 i=1:gosub254:dt=tl
  1038. 1040 print"dealer has:";dt
  1039. 1041 form=1to600:nextm
  1040. 1042 ifss=1then1045
  1041. 1043 ifdt<6then1061
  1042. 1044 goto1069
  1043. 1045 ifdt<3then1061
  1044. 1046 ifdt=3andpp(3,2)=8then1069
  1045. 1047 ifdt=3then1061
  1046. 1048 ifdt=4andpp(3,2)=1then1069
  1047. 1049 ifdt=4andpp(3,2)=8then1069
  1048. 1050 ifdt=4andpp(3,2)=9then1069
  1049. 1051 ifdt=4andpp(3,2)=10then1069
  1050. 1052 ifdt=4then1061
  1051. 1053 ifdt=5andpp(3,2)=5then1069
  1052. 1054 ifdt=5andpp(3,2)=6then1069
  1053. 1055 ifdt=5andpp(3,2)=7then1069
  1054. 1056 ifdt=5then1061
  1055. 1057 ifdt=6andpp(3,2)=6then1061
  1056. 1058 ifdt=6andpp(3,2)=7then1061
  1057. 1059 ifdt=6then1069
  1058. 1060 goto1069
  1059. 1061 print"dealer will draw"
  1060. 1062 form=1to600:nextm
  1061. 1063 print"":t=7:gosub16:form=1to600:nextm
  1062. 1064 gosub8:pp(3,1)=n
  1063. 1065 print"":t=7:gosub26
  1064. 1066 print"       dealer"
  1065. 1067 i=1:gosub254:dt=tl
  1066. 1068 print"dealer has:";dt
  1067. 1069 print"dealer will stand"
  1068. 1070 form=1to900:nextm
  1069. 1071 i=1:gosub254:dt=tl
  1070. 1072 ifdt>ptthen1075
  1071. 1073 ifdt<ptthen1085
  1072. 1074 ifdt=ptthen1096
  1073. 1075 print"          "
  1074. 1076 print""
  1075. 1077 form=1to8
  1076. 1078 print"                   "
  1077. 1079 nextm
  1078. 1080 print"     i'm sorry,    "
  1079. 1081 print"the house wins"
  1080. 1082 o=o-b:ifo+mm<=0then1127
  1081. 1083 print"total:";o;"[157]  "
  1082. 1084 goto1104
  1083. 1085 print"          "
  1084. 1086 print""
  1085. 1087 form=1to8
  1086. 1088 print"                   "
  1087. 1089 nextm
  1088. 1090 print"   congratulations,"
  1089. 1091 print"you've won!"
  1090. 1092 o=o+b
  1091. 1093 print"total:";o;"[157]  "
  1092. 1094 gosub4:poke53280,6:td=8:goto481
  1093. 1095 goto1104
  1094. 1096 print"          "
  1095. 1097 print""
  1096. 1098 form=1to8
  1097. 1099 print"                   "
  1098. 1100 nextm
  1099. 1101 print"  push - no winner"
  1100. 1102 print"total:";o;"[157]  "
  1101. 1103 goto1104
  1102. 1104 form=1to1000:nextm
  1103. 1105 print"                   "
  1104. 1106 print"                   "
  1105. 1107 print"    play again?    "
  1106. 1108 geta$:ifa$=""then1108
  1107. 1109 ifa$="y"then1112
  1108. 1110 ifa$="n"thenmm=mm+o:goto308
  1109. 1111 goto1108
  1110. 1112 print""
  1111. 1113 fori=1to22
  1112. 1114 print"                                      "
  1113. 1115 nexti
  1114. 1116 printtab(20)"                 ";
  1115. 1117 goto993
  1116. 1118 geta$:ifa$=""then1118
  1117. 1119 goto993
  1118. 1120 print"you have a natural"
  1119. 1121 gosub8:print"":t=3:pp(1,1)=n:gosub26:form=1to500:nextm
  1120. 1122 gosub8:print"":t=11:pp(2,1)=n:gosub26:form=1to500:nextm
  1121. 1123 i=1:gosub254:dt=tl
  1122. 1124 print"dealer has:";dt
  1123. 1125 form=1to600:nextm
  1124. 1126 goto1072
  1125. 1127 print"[147]":poke53280,8:poke53281,3
  1126. 1128 print""
  1127. 1129 print"      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  1128. 1130 print"      [180] friendly finance company  [170]"
  1129. 1131 print"      [180]                           [170]"
  1130. 1132 print"      [180] (let the borrower beware) [170]"
  1131. 1133 print"      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  1132. 1134 fori=1to1000:nexti:mm=mm+o:ifxx=1then1143
  1133. 1135 print"      can i be of help to you?":print"           you owe $";-mm
  1134. 1136 fori=1to1000:nexti:print
  1135. 1137 print"   would you like to borrow $ 50?"
  1136. 1138 geta$:ifa$=""then1138
  1137. 1139 ifa$="y"then1142
  1138. 1140 ifa$="n"then1157
  1139. 1141 goto1138
  1140. 1142 ifxx=0thenmm=mm+50:xx=1:goto308
  1141. 1143 print"[147]":poke53280,0:poke53281,0
  1142. 1144 print"[147]     you've already lost your $ 50":print
  1143. 1145 fori=1to1000:nexti
  1144. 1146 print:print"         then you lost my $ 50":print:print:print
  1145. 1147 fori=1to1500:nexti
  1146. 1148 print"   now you're broke and owe me $ 100":print
  1147. 1149 fori=1to2000:nexti
  1148. 1150 print"   get out of here!!  while you can!"
  1149. 1151 fori=1to3000:nexti
  1150. 1152 goto1157
  1151. 1153 geta$:ifa$=""then1153
  1152. 1154 goto308
  1153. 1155 geta$:ifa$=""then1155
  1154. 1156 goto993
  1155. 1157 print"[147][154]":poke53280,14:poke53281,6
  1156.